Option Explicit
Sub A_Sample008()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim mySht As Worksheet
    Dim myLngR As Long
    Set mySht = Worksheets(1)                   'N
    Set myRng1 = mySht.UsedRange                ']tDCƽd
    myLngR = myRng1.Rows.Count                  'Cjp
    'ǳƨ즹
    Set myRng2 = myRng1.Resize(myLngR - 1).Offset(1)
    MsgBox myRng2.Address
    Set myRng1 = Nothing                        '
    Set myRng2 = Nothing
    Set mySht = Nothing
End Sub
